procedure Insert(Source: String; var Dest: String; Indx: Integer);
Merges Source into S at the position S[index].